home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / inadv095.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-22  |  3KB  |  45 lines
  1. /*
  2.  
  3.   REXX Script to install Internet Adventurer - and create a desktop folder
  4.  
  5. */
  6.  
  7. if RxFuncQuery('SysLoadFuncs') then do
  8.    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9.    call SysLoadFuncs
  10. end
  11.  
  12. say "Installing..."
  13.  
  14. dir = directory() || '\'
  15.  
  16. dir2 = substr(dir, 1, 2) || '"' || substr(dir, 3, length(dir)-2)
  17. say "Creating folder"
  18. call SysCreateObject "WPFolder", "Internet" || d2c(10) || "Adventurer", "<WP_DESKTOP>", "OBJECTID=<INETADVFOLDER>", "replace"
  19.  
  20. say "Creating program objects"
  21. call SysCreateObject "WPProgram", "Uninstall", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS= /C" dir2 || 'UNINST.CMD"', "replace"
  22. call SysCreateObject "WPProgram", "Restore Configuration", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS= /C" dir2 || 'COPYINI.CMD INETADV.INI OS2"', "replace"
  23. call SysCreateObject "WPProgram", "Backup Configuration", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS= /C" dir2 || 'COPYINI.CMD OS2 INETADV.INI"', "replace"
  24. call SysCreateObject "WPProgram", "Edit quicklist.txt", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "QUICKLST.TXT;STARTUPDIR=" || dir, "replace"
  25. call SysCreateObject "WPProgram", "Import quicklist" || d2c(10) || "from quicklist.txt", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'QIMPORT.CMD";STARTUPDIR=' || dir, "replace"
  26. call SysCreateObject "WPProgram", "Export quicklist" || d2c(10) || "to quicklist.txt", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'QEXPORT.CMD";STARTUPDIR=' || dir, "replace"
  27. call SysCreateObject "WPProgram", "Import quicklist" || d2c(10) || "from WebExplorer", "<INETADVFOLDER>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'IMPORT.CMD";STARTUPDIR=' || dir, "replace"
  28. call SysCreateObject "WPProgram", "Internet Adventurer", "<INETADVFOLDER>", "EXENAME=" || dir || "INETADV.EXE;STARTUPDIR=" || dir || ";ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=YES;"
  29. call SysCreateObject "WPProgram", "Get legal and" || d2c(10) || "Register", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir2 || 'REGISTER.TXT"', "replace"
  30. call SysCreateObject "WPProgram", "Readme First", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir2 || 'README.TXT"', "replace"
  31.  
  32. say "Delete news database ? (must be done when installing over v0.25 or v0.26)"
  33. parse upper pull answer .
  34.  
  35. if left(answer, 1) \= 'Y' then do
  36.    say "Installation completed - not deleting news database"
  37.    exit
  38. end
  39.  
  40. say "Deleting news database"
  41. 'del art*'
  42. 'del newsgrp.*'
  43.  
  44. say "Installation completed"
  45.